home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8408.arc / RANDOM7.BAS < prev    next >
BASIC Source File  |  1984-05-11  |  836b  |  23 lines
  1. 10 '        Program to compute chi square test of uniformity
  2. 20 '        of distribution of RND random number generator
  3. 30 '        - P. F. Hultquist, 1983
  4. 40 DIM COUNT(101)     'Allows for 100 degrees of freedom
  5. 50 FOR I = 1 TO 101
  6. 60 COUNT(I) = 0       'Zero the count vector
  7. 70 NEXT I
  8. 80 RANDOMIZE
  9. 90 FOR I = 1 TO 1010
  10. 100 K = INT(101*RND) + 1   'Compute index of count
  11. 110 COUNT(K) = COUNT(K) + 1    'Count the occurrence
  12. 120 NEXT I
  13. 130 SUM = 0
  14. 140 FOR I = 1 TO 101              'Start computing chi square
  15. 150 SUM = SUM + (10 - COUNT(I))^2 '10 is the expected number in
  16. 160 NEXT I                        'each "bin"
  17. 170 CHSQ = SUM/10                 'Finish computing chi square
  18. 180 PRINT CHSQ
  19. 190 PRINT : PRINT "Another? (Y/N)";
  20. 200 A$ = INKEY$ : IF A$ = "" THEN 200
  21. 210 IF A$="Y" OR A$="y" THEN 50
  22. 220 END
  23.